0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 B1=32:B2=40
12 POKE53280,0:POKE53281,1:POKE646,0
15 SYS MEM,B2,B1:SYS CLEAR
20 SYS MEM,B1,B2:SYS CLEAR
25 SYS SH,0,0,0,1,0
30 SYS SE,100,100:F=1:FL=1:X=24
35 X1=0:Y1=0:X2=30:Y2=30
37 X1=X1+F:X2=X2-F
40 FOR I=0TOX2
45 SYS CL
50 SYS LI,X1,Y1,X2,Y2,1
52 SYS LI,X1,Y2,X2,Y1,1
60 H=B1:B1=B2:B2=H
70 SYS MEM,B1,B2
80 X1=X1+1:X2=X2-1:X=X+1
85 IF X>320THENX=24
87 SYS SE,X,100
90 NEXT:FL=-FL:F=F+FL*1
100 GOTO35